/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / share / 17 / dings_e.exe / Projects / Samples / In_Out / Joystick.src

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 13 24 24 44 69 6e 67 73 | 5f 50 72 6f 6a 65 63 74 |.$$Dings|_Project|
|00000010| 46 69 6c 65 3d 00 00 00 | 46 72 61 6d 65 72 61 74 |File=...|Framerat|
|00000020| 65 20 36 30 20 52 65 73 | 6f 6c 75 74 69 6f 6e 20 |e 60 Res|olution |
|00000030| 30 20 46 75 6c 6c 73 63 | 72 65 65 6e 20 30 20 44 |0 Fullsc|reen 0 D|
|00000040| 65 62 75 67 20 30 20 43 | 75 72 72 65 6e 74 4c 69 |ebug 0 C|urrentLi|
|00000050| 6e 65 20 32 32 ff 56 03 | 2f 2f 20 2d 2d 2d 2d 2d |ne 22.V.|// -----|
|00000060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 20 2f 2f 0d 0a 2f 2f 20 |--------| //..// |
|000000a0| 4a 4f 59 53 54 49 43 4b | 20 44 45 4d 4f 0d 0a 2f |JOYSTICK| DEMO../|
|000000b0| 2f 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/ ------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|000000f0| 2f 2f 0d 0a 0d 0a 73 74 | 61 72 74 3a 0d 0a 0d 0a |//....st|art:....|
|00000100| 20 50 52 49 4e 54 20 22 | 4d 49 54 20 3c 45 53 43 | PRINT "|MIT <ESC|
|00000110| 3e 20 45 4e 44 45 22 2c | 30 2c 32 30 3b 0d 0a 0d |> ENDE",|0,20;...|
|00000120| 0a 20 4a 4f 59 53 54 41 | 54 45 20 6a 6f 79 5f 78 |. JOYSTA|TE joy_x|
|00000130| 2c 20 6a 6f 79 5f 79 2c | 20 6a 6f 79 5f 61 2c 20 |, joy_y,| joy_a, |
|00000140| 6a 6f 79 5f 62 3b 20 2f | 2f 20 56 61 72 69 61 62 |joy_b; /|/ Variab|
|00000150| 6c 65 6e 20 6a 6f 79 5f | 78 20 2d 20 6a 6f 79 5f |len joy_|x - joy_|
|00000160| 62 20 20 20 20 20 2f 20 | 56 61 72 69 61 62 6c 65 |b     / |Variable|
|00000170| 73 20 6a 6f 78 5f 78 20 | 2d 20 6a 6f 79 5f 62 0d |s jox_x |- joy_b.|
|00000180| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001a0| 20 20 20 20 20 20 20 2f | 2f 20 6d 69 74 20 4a 6f |       /|/ mit Jo|
|000001b0| 79 73 74 69 63 6b 2d 57 | 65 72 74 65 6e 20 66 fc |ystick-W|erten f.|
|000001c0| 6c 6c 65 6e 20 20 2f 20 | 66 69 6c 6c 65 64 20 77 |llen  / |filled w|
|000001d0| 69 74 68 20 6a 6f 79 73 | 69 63 6b 20 73 74 61 74 |ith joys|ick stat|
|000001e0| 65 0d 0a 0d 0a 20 4c 45 | 54 20 74 65 78 74 24 3d |e.... LE|T text$=|
|000001f0| 22 22 3b 0d 0a 20 20 49 | 46 20 6a 6f 79 5f 78 3d |"";..  I|F joy_x=|
|00000200| 2d 31 3b 20 4c 45 54 20 | 74 65 78 74 24 3d 22 4c |-1; LET |text$="L|
|00000210| 49 4e 4b 53 2f 4c 45 46 | 54 22 3b 20 20 20 45 4e |INKS/LEF|T";   EN|
|00000220| 44 49 46 3b 0d 0a 20 20 | 49 46 20 6a 6f 79 5f 78 |DIF;..  |IF joy_x|
|00000230| 3d 20 31 3b 20 4c 45 54 | 20 74 65 78 74 24 3d 22 |= 1; LET| text$="|
|00000240| 52 45 43 48 54 53 2f 52 | 49 47 48 54 22 3b 20 20 |RECHTS/R|IGHT";  |
|00000250| 45 4e 44 49 46 3b 0d 0a | 20 20 49 46 20 6a 6f 79 |ENDIF;..|  IF joy|
|00000260| 5f 79 3d 2d 31 3b 20 4c | 45 54 20 74 65 78 74 24 |_y=-1; L|ET text$|
|00000270| 3d 22 41 55 46 2f 55 50 | 22 3b 20 20 20 20 20 45 |="AUF/UP|";     E|
|00000280| 4e 44 49 46 3b 0d 0a 20 | 20 49 46 20 6a 6f 79 5f |NDIF;.. | IF joy_|
|00000290| 79 3d 20 31 3b 20 4c 45 | 54 20 74 65 78 74 24 3d |y= 1; LE|T text$=|
|000002a0| 22 41 42 2f 44 4f 57 4e | 22 3b 20 20 20 20 20 20 |"AB/DOWN|";      |
|000002b0| 45 4e 44 49 46 3b 0d 0a | 20 20 49 46 20 6a 6f 79 |ENDIF;..|  IF joy|
|000002c0| 5f 61 3d 20 31 3b 20 4c | 45 54 20 74 65 78 74 24 |_a= 1; L|ET text$|
|000002d0| 3d 22 4b 4e 4f 50 46 20 | 41 2f 42 55 54 54 4f 4e |="KNOPF |A/BUTTON|
|000002e0| 20 41 22 3b 20 45 4e 44 | 49 46 3b 0d 0a 20 20 49 | A"; END|IF;..  I|
|000002f0| 46 20 6a 6f 79 5f 62 3d | 20 31 3b 20 4c 45 54 20 |F joy_b=| 1; LET |
|00000300| 74 65 78 74 24 3d 22 4b | 4e 4f 50 46 20 42 2f 42 |text$="K|NOPF B/B|
|00000310| 55 54 54 4f 4e 20 42 22 | 3b 20 45 4e 44 49 46 3b |UTTON B"|; ENDIF;|
|00000320| 0d 0a 0d 0a 20 50 52 49 | 4e 54 20 22 4a 4f 59 53 |.... PRI|NT "JOYS|
|00000330| 54 49 43 4b 3a 22 2c 31 | 30 30 2c 38 30 3b 0d 0a |TICK:",1|00,80;..|
|00000340| 20 50 52 49 4e 54 20 74 | 65 78 74 24 2c 20 31 30 | PRINT t|ext$, 10|
|00000350| 30 2c 31 30 30 3b 0d 0a | 0d 0a 50 52 49 4e 54 20 |0,100;..|..PRINT |
|00000360| 6a 6f 79 5f 61 2b 22 20 | 2d 20 22 2b 6a 6f 79 5f |joy_a+" |- "+joy_|
|00000370| 62 2b 22 20 2d 20 22 2b | 6a 6f 79 5f 78 2b 22 20 |b+" - "+|joy_x+" |
|00000380| 2d 20 22 2b 6a 6f 79 5f | 79 2c 31 30 30 2c 20 32 |- "+joy_|y,100, 2|
|00000390| 30 30 0d 0a 0d 0a 53 48 | 4f 57 53 43 52 45 45 4e |00....SH|OWSCREEN|
|000003a0| 3b 0d 0a 47 4f 54 4f 20 | 73 74 61 72 74 3b       |;..GOTO |start;  |
+--------+-------------------------+-------------------------+--------+--------+